1 REM * CAPTURE SUBROUTINE * BY DON RAVEY: COPYRIGHT (C) 1982 BY MICRO-SPARC, INC. LINCOLN, MA. 01773
2 TEXT : HOME : INVERSE : PRINT " TO CAPTURE A SUBROUTINE IN A TEXT FILE,": NORMAL
4 PRINT "USING THE RIGHT ARROW KEY, COPY OVER THELINE NUMBER AND 'LIST', THEN ENTER THE": PRINT "BEGINNING AND ENDING LINE NUMBERS OF THESUBROUTINE, <CR>, THEN COPY OVER THE": PRINT "'RUN 10' COMMAND, <CR>:"
6 VTAB 11: PRINT "]RUN 10"
8 VTAB 8: LIST 20: VTAB 9: PRINT "020": VTAB 8: END
10 D$ = CHR$(13) + CHR$(4)
12 TEXT : HOME : INPUT "ENTER FILE NAME: ";FI$: PRINT : PRINT "DO NOT INTERRUPT WHILE WRITING FILE!"